home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d6 / glazer.arc / LOANQUAL.BAS < prev    next >
BASIC Source File  |  1988-10-07  |  764b  |  22 lines
  1. 100 'Loan Qualification ("LOANQUAL")
  2. 110 CLS
  3. 120 COLOR 0,15 : PRINT "Loan Qualification" : COLOR 15,0
  4. 130 DEFDBL A-Z
  5. 140 DEFINT M-N
  6. 150 MONEYFMT$ = "$$##,###,###.##"
  7. 160 '     Let user enter data
  8. 170 PRINT : PRINT
  9. 180 PRINT "Do not enter dollar signs or commas"
  10. 190 PRINT
  11. 200 INPUT "Monthly payment: ", PMT
  12. 210 INPUT "Term (in months): ", NMONTHS
  13. 220 INPUT "Annual interest rate (in percent): ", AR
  14. 230 PR = AR / 1200    'Convert to monthly interest rate
  15. 240 '     Find present value of payments
  16. 250 IF PR <> 0  THEN PNCPL = (PMT / PR) * (1 - (1 + PR) ^ -NMONTHS)                             ELSE PNCPL = PMT * NMONTHS
  17. 260 '     Print results
  18. 270 PRINT
  19. 280 PRINT "Borrower can qualify for loan of ";
  20. 290 PRINT USING MONEYFMT$ ; PNCPL
  21. 300 END
  22.